home *** CD-ROM | disk | FTP | other *** search
/ Macademic for Students & Teachers / Macademic for Students and Teachers (Quantum Leap)(1992).iso / General Interest / Whole Earth Catalog⁄stack / background_4706.txt < prev    next >
Encoding:
Text File  |  1987-09-20  |  3.2 KB  |  152 lines
  1. -- background: 4706 from stack: in
  2. -- bmap block id: 6892
  3. -- flags: 4000
  4. -- background id: 0
  5. -- name: Response
  6.  
  7.  
  8. -- part 2 (field)
  9. -- low flags: 01
  10. -- high flags: 0000
  11. -- rect: left=9 top=44 right=61 bottom=499
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 22
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: theResponseLine
  20.  
  21.  
  22. -- part 4 (field)
  23. -- low flags: 01
  24. -- high flags: 0007
  25. -- rect: left=3 top=65 right=315 bottom=505
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 0 / 0
  28. -- text alignment: 0
  29. -- font id: 22
  30. -- text size: 10
  31. -- style flags: 0
  32. -- line height: 13
  33. -- part name: theText
  34.  
  35.  
  36. -- part 5 (field)
  37. -- low flags: 01
  38. -- high flags: 0000
  39. -- rect: left=9 top=23 right=40 bottom=498
  40. -- title width / last selected line: 0
  41. -- icon id / first selected line: 0 / 0
  42. -- text alignment: 0
  43. -- font id: 22
  44. -- text size: 12
  45. -- style flags: 0
  46. -- line height: 16
  47. -- part name: theTopic
  48.  
  49.  
  50. -- part 6 (field)
  51. -- low flags: 81
  52. -- high flags: 0000
  53. -- rect: left=428 top=23 right=40 bottom=499
  54. -- title width / last selected line: 0
  55. -- icon id / first selected line: 0 / 0
  56. -- text alignment: 65535
  57. -- font id: 22
  58. -- text size: 12
  59. -- style flags: 0
  60. -- line height: 16
  61. -- part name: theResponseNum
  62.  
  63.  
  64. -- part 7 (button)
  65. -- low flags: 00
  66. -- high flags: 0000
  67. -- rect: left=477 top=319 right=338 bottom=505
  68. -- title width / last selected line: 0
  69. -- icon id / first selected line: 6720 / 6720
  70. -- text alignment: 1
  71. -- font id: 0
  72. -- text size: 12
  73. -- style flags: 0
  74. -- line height: 16
  75. -- part name: 
  76. ----- HyperTalk script -----
  77. on mouseUp
  78.   visual effect zoom close
  79.   go to prev card of bkgnd "Topic"
  80. end mouseUp
  81.  
  82.  
  83.  
  84. -- part 8 (button)
  85. -- low flags: 00
  86. -- high flags: 0000
  87. -- rect: left=196 top=321 right=340 bottom=226
  88. -- title width / last selected line: 0
  89. -- icon id / first selected line: 15420 / 15420
  90. -- text alignment: 1
  91. -- font id: 0
  92. -- text size: 12
  93. -- style flags: 0
  94. -- line height: 16
  95. -- part name: 
  96. ----- HyperTalk script -----
  97. on mouseUp
  98.   visual effect scroll right
  99.   go to prev card
  100. end mouseUp
  101.  
  102.  
  103.  
  104. -- part 9 (button)
  105. -- low flags: 00
  106. -- high flags: 0000
  107. -- rect: left=243 top=321 right=340 bottom=273
  108. -- title width / last selected line: 0
  109. -- icon id / first selected line: 16560 / 16560
  110. -- text alignment: 1
  111. -- font id: 0
  112. -- text size: 12
  113. -- style flags: 0
  114. -- line height: 16
  115. -- part name: 
  116. ----- HyperTalk script -----
  117. on mouseUp
  118.   visual effect scroll left
  119.   go to next card
  120. end mouseUp
  121.  
  122.  
  123.  
  124. -- part 10 (button)
  125. -- low flags: 00
  126. -- high flags: 8004
  127. -- rect: left=4 top=320 right=340 bottom=122
  128. -- title width / last selected line: 0
  129. -- icon id / first selected line: 0 / 0
  130. -- text alignment: 1
  131. -- font id: 0
  132. -- text size: 12
  133. -- style flags: 0
  134. -- line height: 16
  135. -- part name: Delete Response
  136. ----- HyperTalk script -----
  137. on mouseUp
  138.   answer "Delete this Response?" with "Yes" or "Cancel"
  139.   if it is "Cancel" then exit mouseUp
  140.   get the id of this card
  141.   put it into killedID
  142.   doMenu Delete Card
  143.   go to prev card of bkgnd "Topic"
  144.   repeat with i = 1 to number of lines in bkgnd field "theLinks"
  145.     if line i of bkgnd field "theLinks" is killedID then
  146.       delete line i of bkgnd field "theLinks"
  147.       delete line i of bkgnd field "theResponses"
  148.     end if
  149.   end repeat
  150. end mouseUp
  151.  
  152.